home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / medical / mendelge.cpt / MendelGenetics / MENDELIAN GENETICS I / card_25732.txt < prev    next >
Text File  |  1989-06-13  |  12KB  |  476 lines
  1. -- card: 25732 from stack: in
  2. -- bmap block id: 38802
  3. -- flags: 0000
  4. -- background id: 2665
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=309 top=48 right=70 bottom=369
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: CLASS1
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=309 top=75 right=97 bottom=369
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: CLASS2
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 00
  38. -- high flags: 0002
  39. -- rect: left=309 top=102 right=124 bottom=369
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: CLASS3
  48.  
  49.  
  50. -- part 4 (field)
  51. -- low flags: 00
  52. -- high flags: 0002
  53. -- rect: left=310 top=129 right=151 bottom=370
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: CLASS4
  62.  
  63.  
  64. -- part 5 (button)
  65. -- low flags: 00
  66. -- high flags: 8003
  67. -- rect: left=265 top=163 right=182 bottom=309
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: 3:1
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   global sum
  79.   put the value of (card field class1 + card field class2)/4 into sum
  80.   put the value of sum into card field F6
  81.   put the value of (sum *3) into card field F5
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 6 (button)
  87. -- low flags: 00
  88. -- high flags: 8003
  89. -- rect: left=313 top=163 right=182 bottom=357
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: 1:2:1
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   global sum
  101.   put the value of (card field class1 + card field class2 + card field class3)/4 into sum
  102.   put the value of sum into card field F5
  103.   put the value of sum  into card field F7
  104.   put the value of (sum * 2) into card field F6
  105. end mouseUp
  106.  
  107.  
  108.  
  109. -- part 7 (button)
  110. -- low flags: 00
  111. -- high flags: 8003
  112. -- rect: left=362 top=163 right=182 bottom=406
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: 9:3:4
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   global sum
  124.   put the value of (card field class1 + card field class2 + card field class3)/16 into sum
  125.   put the value of (sum * 9) into card field F5
  126.   put the value of (sum * 4) into card field F7
  127.   put the value of (sum * 3) into card field F6
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 8 (button)
  133. -- low flags: 00
  134. -- high flags: 8003
  135. -- rect: left=411 top=164 right=183 bottom=455
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: 9:7
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   global sum
  147.   put the value of (card field class1 + card field class2)/16 into sum
  148.   put the value of (sum * 7) into card field F6
  149.   put the value of (sum * 9) into card field F5
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 9 (button)
  155. -- low flags: 00
  156. -- high flags: 8003
  157. -- rect: left=458 top=164 right=183 bottom=502
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: 15:1
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   global sum
  169.   put the value of (card field class1 + card field class2)/16 into sum
  170.   put the value of sum  into card field F6
  171.   put the value of (sum * 15) into card field F5
  172. end mouseUp
  173.  
  174.  
  175.  
  176. -- part 10 (button)
  177. -- low flags: 00
  178. -- high flags: 8003
  179. -- rect: left=259 top=187 right=206 bottom=303
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 0 / 0
  182. -- text alignment: 1
  183. -- font id: 0
  184. -- text size: 12
  185. -- style flags: 0
  186. -- line height: 16
  187. -- part name: 13:3
  188. ----- HyperTalk script -----
  189. on mouseUp
  190.   global sum
  191.   put the value of (card field class1 + card field class2)/16 into sum
  192.   put the value of (sum * 3) into card field F6
  193.   put the value of (sum * 13) into card field F5
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 11 (button)
  199. -- low flags: 00
  200. -- high flags: 8003
  201. -- rect: left=305 top=188 right=207 bottom=349
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: 12:4
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   global sum
  213.   put the value of (card field class1 + card field class2)/16 into sum
  214.   put the value of (sum * 4) into card field F6
  215.   put the value of (sum * 12) into card field F5
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part 12 (button)
  221. -- low flags: 00
  222. -- high flags: 8003
  223. -- rect: left=351 top=189 right=208 bottom=395
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: 12:3:1
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   global sum
  235.   put the value of (card field class1 + card field class2 + card field class3)/16 into sum
  236.   put the value of (sum * 12) into card field F5
  237.   put the value of sum into card field F7
  238.   put the value of (sum * 3) into card field F6
  239. end mouseUp
  240.  
  241.  
  242.  
  243. -- part 13 (button)
  244. -- low flags: 00
  245. -- high flags: 8003
  246. -- rect: left=398 top=189 right=208 bottom=464
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 0 / 0
  249. -- text alignment: 1
  250. -- font id: 0
  251. -- text size: 12
  252. -- style flags: 0
  253. -- line height: 16
  254. -- part name: 9:3:3:1
  255. ----- HyperTalk script -----
  256. on mouseUp
  257.   global sum
  258.   put the value of ((card field class1 + card field class2 + card field class3 + card field class4)/16) into sum
  259.   put the value of (sum * 9) into card field F5
  260.   put the value of (sum * 3) into card field F6
  261.   put the value of (sum * 3) into card field F7
  262.   put the value of sum into card field F8
  263. end mouseUp
  264.  
  265.  
  266.  
  267. -- part 14 (field)
  268. -- low flags: 00
  269. -- high flags: 0002
  270. -- rect: left=302 top=232 right=254 bottom=362
  271. -- title width / last selected line: 0
  272. -- icon id / first selected line: 0 / 0
  273. -- text alignment: 0
  274. -- font id: 3
  275. -- text size: 12
  276. -- style flags: 0
  277. -- line height: 16
  278. -- part name: F5
  279.  
  280.  
  281. -- part 15 (field)
  282. -- low flags: 00
  283. -- high flags: 0002
  284. -- rect: left=302 top=259 right=281 bottom=362
  285. -- title width / last selected line: 0
  286. -- icon id / first selected line: 0 / 0
  287. -- text alignment: 0
  288. -- font id: 3
  289. -- text size: 12
  290. -- style flags: 0
  291. -- line height: 16
  292. -- part name: F6
  293.  
  294.  
  295. -- part 16 (field)
  296. -- low flags: 00
  297. -- high flags: 0002
  298. -- rect: left=302 top=286 right=308 bottom=362
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 0
  302. -- font id: 3
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: F7
  307.  
  308.  
  309. -- part 17 (field)
  310. -- low flags: 00
  311. -- high flags: 0002
  312. -- rect: left=300 top=313 right=335 bottom=360
  313. -- title width / last selected line: 0
  314. -- icon id / first selected line: 0 / 0
  315. -- text alignment: 0
  316. -- font id: 3
  317. -- text size: 12
  318. -- style flags: 0
  319. -- line height: 16
  320. -- part name: F8
  321.  
  322.  
  323. -- part 18 (button)
  324. -- low flags: 00
  325. -- high flags: 8003
  326. -- rect: left=167 top=315 right=337 bottom=267
  327. -- title width / last selected line: 0
  328. -- icon id / first selected line: 0 / 0
  329. -- text alignment: 1
  330. -- font id: 0
  331. -- text size: 12
  332. -- style flags: 0
  333. -- line height: 16
  334. -- part name: DATA ENTRY
  335. ----- HyperTalk script -----
  336. on mouseUp
  337.   delete line 1 of card field class1
  338.   put 0 into card field class2
  339.   put 0 into card field class3
  340.   put 0 into card field class4
  341.   put 0 into card field f5
  342.   put 0 into card field f6
  343.   put 0 into card field f7
  344.   put 0 into card field f8
  345.   get the location of card field class1
  346.   click at it
  347. end mouseUp
  348.  
  349.  
  350.  
  351.  
  352. -- part 19 (button)
  353. -- low flags: 00
  354. -- high flags: 8003
  355. -- rect: left=433 top=269 right=292 bottom=512
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 1
  359. -- font id: 0
  360. -- text size: 12
  361. -- style flags: 0
  362. -- line height: 16
  363. -- part name: CHI SQUARE
  364. ----- HyperTalk script -----
  365. on mouseUp
  366.   global bagI
  367.   global bagII
  368.   global bagIII
  369.   global bagIV
  370.   global bagV
  371.   global bagVI
  372.   global bagVII
  373.   global bagVIII
  374.   put the value of card field class1 into bagI
  375.   put the value of card field class2 into bagII
  376.   put the value of card field class3 into bagIII
  377.   put the value of card field class4 into bagIV
  378.   put the value of card field F5 into bagV
  379.   put the value of card field F6 into bagVI
  380.   put the value of card field F7 into bagVII
  381.   put the value of card field F8 into bagVIII
  382.   go next
  383.   global sumchi
  384.   delete line 1 of card field F4
  385.   delete line 1 of card field F5
  386.   put 0 into sumchi
  387.   add (((bagI - bagV)^2)/bagV) to sumchi
  388.   add (((bagII - bagVI)^2)/bagVI) to sumchi
  389.   put sumchi into card field F1
  390.   if the value of bagIII <> 0 then
  391.     add the value of (((bagIII- bagVII)^2)/bagVII) to sumchi
  392.     put sumchi into card field F1
  393.   else
  394.   end if
  395.   if the value of bagIV <> 0 then
  396.     add the value of (((bagIV - bagVIII)^2)/bagVIII) to sumchi
  397.     put sumchi into card field F1
  398.   end if
  399. end mouseUp
  400.  
  401.  
  402.  
  403.  
  404.  
  405. -- part 20 (button)
  406. -- low flags: 00
  407. -- high flags: 8003
  408. -- rect: left=466 top=189 right=208 bottom=510
  409. -- title width / last selected line: 0
  410. -- icon id / first selected line: 0 / 0
  411. -- text alignment: 1
  412. -- font id: 0
  413. -- text size: 12
  414. -- style flags: 0
  415. -- line height: 16
  416. -- part name: 2:1
  417. ----- HyperTalk script -----
  418. on mouseUp
  419.   set numberFormat to "000.000"
  420.   global sum
  421.   put the value of (card field class1 + card field class2)/3 into sum
  422.   put the value of sum  into card field F6
  423.   put the value of (sum * 2) into card field F5
  424.   wait 3 seconds
  425.   go to card id 52047
  426. end mouseUp
  427.  
  428.  
  429.  
  430. -- part contents for background part 1
  431. ----- text -----
  432. CHI SQUARE
  433.  
  434. -- part contents for background part 2
  435. ----- text -----
  436. WARNING!!! THE CHI SQUARE PROGRAMS AUTOMATICALLY RUN WHEN ACCESSED. THEREFORE, YOU MUST HAVE DATA ON THIS CARD IN ORDER TO AVOID A DIALOGUE BOX STATING THAT THE VALUE OF THE EXPRESSION CANNOT BE TAKEN. THE SIMPLEST WAY TO GET DATA ON THIS CARD IS TO RUN A GENETIC CROSS AND CLICK ON THE CHI SQUARE BUTTON. 
  437.  
  438. The Chi Square test gives an individual the probability of his observed data spread occurring due to normal sampling errors if his hypothesis is true. In other words, it tells you for example the probability of getting a data spread of 45 heads and 55 tails if the probability of heads/tails is 1:1. Your observed data is entered in the windows on the right. Click on the ratio button you think your data fits in order to calculate your expected data spread. These values will be automatically calculated after which you can click on the CHI SQUARE button below for the analysis.   
  439.  
  440. NOTE!  The way this card is set-up, data from programmed crosses is automatically entered. If you have your own set of data which you wish to check, click on the DATA ENTRY button below. The Observed Data window will be cleared and the cursor automatically placed in the top box. You can then enter your observed data after which you should follow the procedures described above. 
  441.  
  442. -- part contents for card part 2
  443. ----- text -----
  444. 9
  445.  
  446. -- part contents for card part 3
  447. ----- text -----
  448. 18
  449.  
  450. -- part contents for card part 4
  451. ----- text -----
  452. 2
  453.  
  454. -- part contents for card part 17
  455. ----- text -----
  456. 0
  457.  
  458. -- part contents for card part 14
  459. ----- text -----
  460. 0
  461.  
  462. -- part contents for card part 16
  463. ----- text -----
  464. 0
  465.  
  466. -- part contents for card part 15
  467. ----- text -----
  468. 0
  469.  
  470. -- part contents for background part 8
  471. ----- text -----
  472. 187
  473.  
  474. -- part contents for card part 1
  475. ----- text -----
  476. 35